home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / misc / emu / AppEmu.lha / LoadFont.asm < prev    next >
Encoding:
Assembly Source File  |  1994-06-30  |  455 b   |  53 lines
  1. ;.PAGE 'Load "apple" font'
  2. ;
  3. ;    Macros
  4. ;
  5. XLIB    MACRO
  6.     XREF    _LVO\1
  7.     ENDM
  8. JSRLIB    MACRO
  9.     JSR    _LVO\1(A6)
  10.     ENDM
  11. ;
  12. ;    Library calls
  13. ;
  14.     XLIB    OpenLibrary
  15.     XLIB    OpenDiskFont
  16. ;
  17. ;
  18. ;
  19.     LEA    FLibStrK(PC),A1
  20.     CLR.L    D0
  21.     MOVE.L    4,A6
  22.     JSRLIB    OpenLibrary
  23. ;
  24. ;
  25. ;
  26.     LEA    TxtAttr(PC),A0
  27.     move.l    D0,A6
  28.     JSRLIB    OpenDiskFont
  29. ;
  30. ;
  31. ;
  32.     CLR.L    D0
  33.     RTS
  34. ;
  35. ;
  36. ;
  37. TxtAttr    dc.l    FontNStrK
  38.     dc.w    8
  39.     dc.b    0
  40.     dc.b    0
  41. ;
  42. ;
  43. ;
  44. FLibStrK    dc.b    'diskfont.library',0
  45. ;
  46. ;
  47. ;
  48. FontNStrK    dc.b    'apple.font',0
  49. ;
  50. ;
  51. ;
  52.     END
  53.